unit shbl_FormBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_additional;

type
  TFormBase = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function FormHelp(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
    error_mode :TErrorMode;
    ModuleCode :integer;

    HELP_ID :string;

  end;

var
  FormBase: TFormBase;

implementation

{$R *.dfm}

procedure TFormBase.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TFormBase.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then Self.Close;
end;

function TFormBase.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  if HELP_ID <> '' then
    Application.HelpJump(HELP_ID);
end;

end.
